home *** CD-ROM | disk | FTP | other *** search
- G4C
-
- WinBig -1 -1 166 120 ''
- WinType 00000000
- Winbackground SOLID 1 0
-
- xOnLoad
- LoadImage Nosferatu:Greier/Explicit Material ""
- GuiOpen #This
- GuiWindow #This FRONT
-
- Image 0 0 Material
- gauge 13 92 140 12 IN RIDGE 3 1 5
- Gadid 1
-
- xOnQuit
- freeimage Material
-
-
- xOnOpen
- If $..FKeyCommand > 0 ;---- FKey Greier
- BreakIt = $..FKeyCommand
- CutVar BreakIt CUT CHAR 38 BreakIt2
- CLI 'C:Status Command "$BreakIt" >Env:FKNummer'
- CLI 'Break Process $..FKNummer'
- CLI 'Echo >Env:FKeyCommand "$BreakIt"'
- Delete Env:FKNummer
- EndIf
-
-
- Info Gui #This
- Bredde = $$SCREEN.W
- If $Bredde > 640
- Bredde2 = $($Bredde -640)
- CalcVar Bredde3 $Bredde2 / 2
- *NosferatuBredde = $Bredde3
- Else
- *NosferatuBredde = 0
- Endif
- Update #This 1 10
-
-
- CLI 'Nosferatu:Zet/Lha e Nosferatu:Greier/P1m.lha Ram: -q'
- *NosferatuSmall1 = Ram:NosP1m/
- Update #This 1 22
-
- CLI 'Nosferatu:Zet/Lha e Nosferatu:Greier/P2m.lha Ram: -q'
- *NosferatuSmall2 = Ram:NosP2m/
- Update #This 1 34
-
-
- ;-----
- If $$MEM.FAST > 2000000
- IfExists Directory ~Ram:NosP1
- CLI 'MakeDir Ram:NosP1'
- Update #This 1 37
- EndIf
- CLI 'Copy >nil: Nosferatu:P1 TO Ram:NosP1 ALL'
- *NosferatuBig1 = Ram:NosP1/
- Update #This 1 61
- IfExists Directory ~Ram:NosP2
- CLI 'MakeDir Ram:NosP2'
- Update #This 1 64
- EndIf
- CLI 'Copy >nil: Nosferatu:P2 TO Ram:NosP2 ALL'
- *NosferatuBig2 = Ram:NosP2/
- Update #This 1 88
- Else
- *NosferatuBig1 = Nosferatu:P1/
- Delay 50
- Update #This 1 63
- *NosferatuBig2 = Nosferatu:P2/
- Delay 50
- Update #This 1 84
- EndIf
-
-
-
- ;------
- Delay 50
- Update #This 1 94
- CLI 'resident Nosferatu:Zet/PPshow pure add'
- Delay 100
- Update #This 1 100
-
- RUN 'PPshow >nil: Nosferatu:Greier/BLK2 nomouse time 35'
- Delay 100
- RUN 'Nosferatu:Zet/OMP >nil: Nosferatu:Greier/Intro'
- CLI 'PPshow >nil: Nosferatu:Greier/RHz Nosferatu:Greier/Title nomouse time 8'
- RUN 'PPshow >nil: Nosferatu:Greier/PleWa nomouse time 8'
-
- GuiLoad Nosferatu:Greier/Nosferatu
- GuiQuit #This
-
- TEXTFILE Ram:Plist1
- 01.Pictures 1
- 02.Breed
- 03.Motorhead
- 04.Painful Bath
- 05.Dragon
- 06.Head Problem
- 07.Head Problem2
- 08.Royal Portrait
- 09.Heavy Metal
- 10.Heavy Metal 2
- 11.Conan
- 12.Conan 2
- 13.Conan 3
- 14.Possessed
- 15.Voodoo
- 16.Lightning Sword
- 17.Eaten Alive
- 18.Butchered
- 19.GWAR
- 20.Hansa Premium
- 21.Welcome To Hell
- 22.Welcome To Hell 2
- ###
-
- TEXTFILE Ram:Plist2
- 01.Pictures 2
- 02.Beast In Love
- 03.Demon
- 04.Dragons Eye
- 05.Heavy Metal 3
- 06.Piece By Piece
- 07.Head Problem 3
- 08.Head Problem 4
- 09.Cool Mistress
- 10.Amiga Logo 1
- 11.Amiga Logo 2
- 12.Possessed 2
- 13.Notron
- 14.Mask
- 15.Cat Temple
- 16.Strange Woman 1
- 17.Strange Woman 2
- 18.Strange Woman 3
- 19.Strange Woman 4
- 20.Hands
- 21.Bloodlust
- 22.Kino
- ###
-